home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1984 November
/
64er_Magazin_84-11_1984_Markt__Technik_de.d64
/
turtle graphik
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
12KB
|
218 lines
20 print"[147] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]
30 [153]" sinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin
40 print" [191][191] [191][191]
50 [153]" sinsin sinsin
60 print" [191][191] turtle graphics [191][191]
70 [153]" sinsin valvalvalvalvalvalvalvalvalvalvalvalvalvalval sinsin
100 print" [191][191] [191][191]
110 [153]" sinsin entwickelt 8.1984 von sinsin
120 print" [191][191] [191][191]
130 [153]" sinsin sinsin
140 print" [191][191] p e t e r m e n k e [191][191]
150 [153]" sinsin sinsin
160 print" [191][191] griftweg 4 [191][191]
170 [153]" sinsin 2212 brunsbuettel sinsin
190 print" [191][191] [191][191]
200 [153]" sinsin sinsin
210 print" [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]
220 [153]" sinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin
230 print" bitte taste druecken"
240 get a$:if a$=""then240
250 print"[147]"
260 gosub1000
270 :
280 :
290 rem **variable**
300 an=49152
301 zi=51360
310 na$="turtle gr."
320 :
330 :
340 :
350 rem **** einleseroutine ****
360 s=an:z=1000
370 fori=1to16:read x
390 ifx=-100then530
391 ifx<0orx>255then503
400 gosub515:pokes,x
410 s=s+1:pr=pr+x:next
440 :
460 read x:if pr=x then pr=0:z=z+10:goto 370
470 print"pruefsummenfehler in zeile"z
475 print"pruefsumme der zeile"z":"pr:print
480 print"richtige pruefsumme:"x:print:print
490 print"list"z-10"-"z"[145][145]";:poke631,13:poke198,1
500 end
501 :
502 :
503 print"datenfehler in zeile"z
504 print"es wurde versucht"x"zu poken."
505 goto490
510 :
511 :
512 :
515 print" zeile:"z" speicherstelle:"s
516 print" eingelesener wert: [157][157][157][157]"x
517 if z>=peek(63)+256*peek(64) then return
518 print"data-zeile fehlt!!"
519 print"oder zeilennummern der data-zeilen nicht"
520 print"in zehner abstaenden":end
521 :
522 :
523 :
530 if s=zi then 539
531 print"datenanzahl ist falsch":print:print"das waere richtig :";zi-an
532 print:print"ihre datenanzahl :";s-an
537 end
539 print"keinen fehler gefunden !"
540 print"abspeichern (j/n) ?"
550 get a$:if a$="n" then 590
560 if a$<>"j" then 550
570 input"geraeteadresse (1=datasette/8=disk)";ge
580 save na$+"(c)pm",ge
590 print"zum start eine beliebige taste druecken
600 [161] a$:[139] a$[178]"" [167] 600
610 [158]an
630 :
640 :
650 :
1000 [131] 120,032,063,193,088,032,163,193,032,223,193,169,028,133,254,169,2085
1010 [131] 192,133,255,032,097,192,032,068,166,076,116,164,147,017,017,017,1721
1020 [131] 029,029,084,085,082,084,076,069,032,071,082,065,080,072,073,067,1080
1030 [131] 083,190,190,029,029,066,089,032,080,069,084,069,082,032,077,069,1270
1040 [131] 078,075,069,190,190,029,029,051,056,057,049,049,032,066,065,083,1168
1050 [131] 073,067,032,066,089,084,069,083,032,070,082,069,069,017,017,190,1109
1060 [131] 191,160,000,177,254,201,191,240,012,201,190,208,002,169,013,032,2241
1070 [131] 210,255,200,208,238,096,173,025,208,141,025,208,016,029,173,018,2223
1080 [131] 208,201,250,176,011,032,204,193,169,250,141,018,208,076,188,254,2579
1090 [131] 032,185,193,169,217,141,018,208,076,188,254,173,013,220,088,165,2340
1100 [131] 204,208,033,169,032,044,017,208,240,026,206,252,203,208,021,169,2240
1110 [131] 007,141,252,203,173,241,203,072,169,002,141,241,203,032,118,195,2393
1120 [131] 104,141,241,203,165,212,208,030,165,216,208,026,165,203,205,255,2747
1130 [131] 203,240,019,141,255,203,201,064,240,012,201,004,240,011,201,005,2240
1140 [131] 240,029,201,006,240,048,076,049,234,173,017,208,041,032,240,009,1843
1150 [131] 032,204,193,032,017,194,076,230,192,032,185,193,076,230,192,173,2251
1160 [131] 017,208,041,032,240,246,173,026,208,041,001,240,006,032,017,194,1722
1170 [131] 076,230,192,032,254,193,162,021,160,000,024,032,240,255,076,230,2177
1180 [131] 192,072,138,072,152,072,169,127,141,013,221,172,013,221,048,012,1835
1190 [131] 032,163,253,032,024,229,032,063,193,108,002,160,076,114,254,032,1767
1200 [131] 204,193,169,004,141,136,002,169,118,141,020,003,169,192,141,021,1823
1210 [131] 003,169,033,141,024,003,169,193,141,025,003,169,048,141,022,003,1287
1220 [131] 169,193,141,023,003,169,011,141,254,203,169,001,141,253,203,141,2215
1230 [131] 252,203,169,000,141,026,208,169,134,141,004,003,169,196,141,005,1961
1240 [131] 003,169,043,141,008,003,169,197,141,009,003,169,084,141,006,003,1289
1250 [131] 169,197,141,007,003,169,103,141,038,003,169,199,141,039,003,032,1554
1260 [131] 249,195,096,162,032,160,000,169,224,133,255,132,254,152,145,254,2612
1270 [131] 136,208,251,230,255,202,208,246,096,169,056,141,024,208,169,148,2747
1280 [131] 141,000,221,173,017,208,009,032,141,017,208,096,169,021,141,024,1618
1290 [131] 208,169,151,141,000,221,173,017,208,041,223,141,017,208,096,169,2183
1300 [131] 204,133,255,160,000,132,254,162,004,173,253,203,010,010,010,010,1973
1310 [131] 013,254,203,145,254,136,208,251,230,255,202,208,246,096,169,217,3087
1320 [131] 141,018,208,173,017,208,041,127,141,017,208,169,001,141,026,208,1844
1330 [131] 096,169,000,141,026,208,096,166,122,202,232,142,242,203,162,255,2462
1340 [131] 142,251,203,142,250,203,238,250,203,174,250,203,189,127,194,240,3259
1350 [131] 033,016,243,238,251,203,172,242,203,136,200,185,000,002,141,249,2514
1360 [131] 203,232,189,127,194,056,237,249,203,240,239,201,128,240,019,076,2833
1370 [131] 038,194,174,242,203,189,000,002,240,007,201,058,240,188,232,208,2416
1380 [131] 244,096,174,242,203,173,251,203,024,105,208,157,000,002,232,200,2514
1390 [131] 185,000,002,157,000,002,240,218,232,200,208,244,076,082,194,200,2240
1400 [131] 072,073,082,069,211,077,079,086,197,067,076,069,065,210,087,073,1593
1410 [131] 078,068,079,215,080,076,079,212,077,079,068,197,068,069,199,082,1726
1420 [131] 069,086,069,082,211,076,084,085,082,206,082,084,085,082,206,067,1656
1430 [131] 079,076,079,210,071,076,079,065,196,071,083,065,086,197,074,079,1586
1440 [131] 089,083,084,073,067,203,076,080,069,206,072,069,076,208,000,239,1694
1450 [131] 194,205,197,095,195,084,199,073,196,118,196,147,197,163,197,128,2584
1460 [131] 198,144,198,165,198,036,199,223,198,161,199,059,200,053,199,032,2462
1470 [131] 158,183,224,000,240,054,032,121,000,240,040,032,253,174,032,158,1941
1480 [131] 183,224,016,144,003,076,106,195,142,254,203,032,223,193,032,121,2147
1490 [131] 000,240,016,032,253,174,032,158,183,224,016,144,003,076,106,195,1852
1500 [131] 142,032,208,032,185,193,032,249,195,076,174,167,032,121,000,240,2078
1510 [131] 037,032,253,174,032,158,183,224,016,144,003,076,106,195,142,033,1808
1520 [131] 208,032,121,000,240,016,032,253,174,032,158,183,224,016,144,003,1836
1530 [131] 076,106,195,142,032,208,032,017,194,032,204,193,076,174,167,208,2056
1540 [131] 012,032,163,193,032,223,193,076,174,167,162,014,044,162,011,032,1690
1550 [131] 204,193,076,055,164,096,173,241,203,201,003,240,248,174,246,203,2720
1560 [131] 138,074,074,041,254,168,185,015,196,141,244,203,185,016,196,141,2271
1570 [131] 245,203,138,041,007,024,109,244,203,141,244,203,173,247,203,041,2466
1580 [131] 248,141,243,203,173,244,203,133,252,024,169,224,109,245,203,133,2947
1590 [131] 253,024,165,252,109,243,203,133,252,165,253,109,248,203,133,253,2998
1600 [131] 173,247,203,041,007,073,007,170,189,065,196,160,000,120,162,052,1865
1610 [131] 134,001,174,241,203,240,008,224,001,240,014,224,002,240,019,017,1982
1620 [131] 252,145,252,169,055,133,001,088,096,073,255,049,252,145,252,076,2293
1630 [131] 227,195,081,252,145,252,076,227,195,169,000,141,248,203,141,241,2793
1640 [131] 203,141,240,203,169,160,141,247,203,169,100,141,246,203,096,000,2662
1650 [131] 000,064,001,128,002,192,003,000,005,064,006,128,007,192,008,000,800
1660 [131] 010,064,011,128,012,192,013,000,015,064,016,128,017,192,018,000,880
1670 [131] 020,064,021,128,022,192,023,000,025,064,026,128,027,192,028,000,960
1680 [131] 030,001,002,004,008,016,032,064,128,032,235,183,224,200,176,035,1370
1690 [131] 165,021,201,001,144,008,208,027,165,020,201,064,176,021,120,142,1684
1700 [131] 246,203,165,020,141,247,203,165,021,141,248,203,088,032,118,195,2436
1710 [131] 076,174,167,076,106,195,032,158,183,224,004,144,003,076,106,195,1919
1720 [131] 142,241,203,076,174,167,032,023,194,166,122,160,004,132,015,189,2040
1730 [131] 000,002,141,249,203,041,240,201,208,208,006,173,249,203,076,232,2432
1740 [131] 196,173,249,203,016,007,201,255,240,062,232,208,226,201,032,240,2741
1750 [131] 055,133,008,201,034,240,086,036,015,112,045,201,063,208,004,169,1610
1760 [131] 153,208,037,201,048,144,004,201,060,144,029,132,113,160,000,132,1766
1770 [131] 011,136,134,122,202,200,232,189,000,002,056,249,158,160,240,245,2336
1780 [131] 201,128,208,048,005,011,164,113,232,200,153,251,001,185,251,001,2152
1790 [131] 240,054,056,233,058,240,004,201,073,208,002,133,015,056,233,085,1891
1800 [131] 208,141,133,008,189,000,002,240,223,197,008,240,219,200,153,251,2412
1810 [131] 001,232,208,240,166,122,230,011,200,185,157,160,016,250,185,158,2521
1820 [131] 160,208,180,189,000,002,016,190,076,009,166,032,115,000,041,240,1624
1830 [131] 201,208,240,009,032,121,000,032,237,167,076,174,167,032,121,000,1817
1840 [131] 041,015,010,168,185,208,194,133,167,185,207,194,133,166,032,115,2153
1850 [131] 000,108,166,000,016,052,201,255,240,048,036,015,048,044,141,249,1619
1860 [131] 203,041,240,201,208,208,038,173,249,203,041,015,170,232,132,073,2427
1870 [131] 160,255,200,185,127,194,016,250,202,208,247,200,185,127,194,048,2798
1880 [131] 006,032,071,171,076,123,197,076,239,166,076,243,166,173,249,203,2267
1890 [131] 076,036,167,032,158,183,224,008,144,003,076,106,195,142,240,203,1993
1900 [131] 076,174,167,208,037,162,032,169,224,133,255,160,000,132,254,120,2303
1910 [131] 169,052,133,001,177,254,073,255,145,254,136,208,247,230,255,202,2791
1920 [131] 208,242,169,055,133,001,088,076,174,167,076,109,195,032,138,173,2036
1930 [131] 032,247,183,166,020,240,008,032,236,197,198,020,076,211,197,166,2229
1940 [131] 021,240,006,198,021,198,020,208,234,076,174,167,173,240,203,240,2419
1950 [131] 029,201,002,240,034,201,004,240,039,201,006,240,044,201,001,240,1923
1960 [131] 010,201,003,240,015,201,005,240,020,208,027,032,047,198,032,093,1572
1970 [131] 198,076,118,195,032,067,198,032,047,198,076,118,195,032,056,198,1836
1980 [131] 032,067,198,076,118,195,032,093,198,032,056,198,076,118,195,173,1857
1990 [131] 246,203,240,067,206,246,203,096,173,246,203,201,199,176,056,238,2999
2000 [131] 246,203,096,173,248,203,208,009,173,247,203,240,042,206,247,203,2947
2010 [131] 096,173,247,203,208,003,206,248,203,206,247,203,096,173,248,203,2963
2020 [131] 208,009,238,247,203,208,003,238,248,203,096,174,247,203,232,224,2981
2030 [131] 064,176,004,142,247,203,096,173,237,203,208,003,076,106,195,096,2229
2040 [131] 032,158,183,138,024,109,240,203,041,007,141,240,203,076,174,167,2136
2050 [131] 032,158,183,142,249,203,173,240,203,056,237,249,203,041,007,141,2517
2060 [131] 240,203,076,174,167,032,158,183,224,016,176,048,142,253,203,032,2327
2070 [131] 223,193,032,121,000,240,034,032,253,174,032,158,183,224,016,176,2091
2080 [131] 027,142,254,203,032,223,193,032,121,000,240,013,032,253,174,032,1971
2090 [131] 158,183,224,016,176,006,142,032,208,076,174,167,076,106,195,120,2059
2100 [131] 169,052,133,001,162,032,160,000,132,254,132,166,169,224,133,255,2174
2110 [131] 169,160,133,167,177,254,145,166,136,208,249,230,255,230,167,202,3048
2120 [131] 208,242,169,055,133,001,088,032,212,225,162,000,160,192,134,254,2267
2130 [131] 169,160,133,255,169,054,133,001,169,254,032,216,255,169,055,133,2357
2140 [131] 001,076,174,167,032,212,225,169,000,133,185,162,000,160,224,032,1952
2150 [131] 213,255,076,174,167,208,026,160,000,185,128,194,240,016,016,007,2065
2160 [131] 041,127,032,210,255,169,013,032,210,255,200,076,057,199,076,174,2126
2170 [131] 167,076,109,195,032,158,183,224,000,240,006,032,254,193,076,174,2119
2180 [131] 167,032,017,194,076,174,167,072,165,154,201,003,208,008,104,201,1943
2190 [131] 135,240,006,076,022,231,076,213,241,142,249,203,166,212,208,027,2447
2200 [131] 166,216,208,023,152,072,169,021,133,214,169,000,133,211,032,108,2027
2210 [131] 229,104,168,174,249,203,169,135,024,088,096,174,249,203,076,022,2363
2220 [131] 231,032,158,183,232,142,239,203,169,001,141,237,203,165,203,201,2740
2230 [131] 003,208,008,169,000,141,237,203,076,174,167,169,000,141,238,203,2137
2240 [131] 173,000,220,041,001,208,009,032,047,198,032,034,200,238,238,203,1874
2250 [131] 173,000,220,041,002,208,009,032,056,198,032,034,200,238,238,203,1884
2260 [131] 173,000,220,041,004,208,009,032,067,198,032,034,200,238,238,203,1897
2270 [131] 173,000,220,041,008,208,009,032,093,198,032,034,200,238,238,203,1927
2280 [131] 173,238,203,208,168,032,011,200,076,173,199,173,241,203,072,169,2539
2290 [131] 002,141,241,203,032,118,195,032,047,200,032,118,195,104,141,241,2042
2300 [131] 203,096,173,000,220,041,016,208,226,032,118,195,076,047,200,172,2023
2310 [131] 239,203,162,100,202,208,253,136,208,248,096,240,003,076,109,195,2678
2320 [131] 165,203,201,003,208,003,076,174,167,173,020,208,056,233,050,144,2084
2330 [131] 239,201,200,176,235,141,246,203,173,019,208,056,233,035,144,224,2733
2340 [131] 010,141,247,203,144,007,201,064,176,214,169,001,044,169,000,141,1931
2350 [131] 248,203,173,141,002,041,004,240,012,032,118,195,032,093,198,032,1764
2360 [131] 118,195,076,064,200,173,241,203,072,169,002,141,241,203,032,118,2248
2370 [131] 195,032,118,195,104,141,241,203,076,064,200,255,255,255,255,249,2838
63000 [131] -100:[142]